Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("D:\Download\UT")

Set files = folder.Files

While True
	For each folderIdx in files

		If folderIdx.Type = "OLD File" Then

			fso.MoveFile folderIdx.Path, "D:\Download\UT\Settings Backup\" & folderIdx.Name

		End If
	Next

	WScript.Sleep(10000)

Wend